home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / fibonac.zip / FIBONAC.PAS < prev   
Pascal/Delphi Source File  |  1993-01-04  |  659b  |  44 lines
  1. PROGRAM FIBONACCI;
  2.  
  3. VAR
  4.   I,RES : INTEGER;
  5.  
  6. FUNCTION FIB (N: INTEGER) :INTEGER;
  7.  
  8. VAR
  9.   X,Y,J,K : INTEGER;
  10.  
  11. BEGIN
  12.   IF (N < 0) THEN
  13.     BEGIN
  14.       WRITELN ('NEGATIVE ARGUMENT TO THE FIBONACCI FUNCTION');
  15.       EXIT
  16.     END;
  17.   IF (N <= 1) THEN
  18.     BEGIN
  19.       FIB := N;
  20.       EXIT
  21.     END;
  22.   X := FIB(N-1);
  23.   Y := FIB(N-2);
  24.   FIB := X + Y;
  25.   WRITELN ('N= ',N,'  X= ',X,'  Y= ',Y);
  26.  
  27. END;
  28.  
  29.  
  30.  
  31. BEGIN
  32.   CLRSCR;
  33.   WRITE ('ENTER THE FIBONACCI NUMBER => ');
  34.   READ (I);
  35.   WRITELN; WRITELN;
  36.   WRITELN ('THE FIBONACCI SEQUENCE IS:');
  37.   WRITELN;
  38.   RES := FIB(I);
  39.   WRITELN;
  40.   WRITELN ('THE FIBONACCI RESULT IS = ',RES);
  41.  
  42. END.
  43.  
  44.